home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / podium.dxr / 00006_Speaking Script.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  474 b   |  19 lines
  1. on mouseUp
  2.   TextCursorOff()
  3.   set ThisSprite to the clickOn
  4.   puppetSprite(ThisSprite, 1)
  5.   set ThisCast to the castNum of sprite ThisSprite
  6.   set Speak to the name of cast ThisCast
  7.   set the castNum of sprite ThisSprite to ThisCast - 23
  8.   updateStage()
  9.   puppetSound(Speak & ".wav")
  10.   updateStage()
  11.   repeat while soundBusy(1)
  12.     nothing()
  13.   end repeat
  14.   set the castNum of sprite ThisSprite to ThisCast
  15.   updateStage()
  16.   puppetSprite(ThisSprite, 0)
  17.   puppetSound(0)
  18. end
  19.